home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Using / background_27099.txt < prev    next >
Text File  |  1990-04-02  |  6KB  |  276 lines
  1. -- background: 27099 from stack: in
  2. -- bmap block id: 28138
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Setting Up Scanner
  6. ----- HyperTalk script -----
  7. on openStack
  8.   set highlight of background button "Using" to true
  9. end openStack
  10.  
  11. on closeStack
  12.   set highlight of background button "Using" to false
  13. end closeStack
  14.  
  15.  
  16. hide message box
  17. hide menuBar
  18.  
  19.  
  20.  
  21.  
  22. -- part 8 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=220 top=308 right=342 bottom=263
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 21700 / 21700
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect zoom open
  37.   go to stack "Apple Scanner"
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 12 (button)
  43. -- low flags: 00
  44. -- high flags: 8004
  45. -- rect: left=376 top=317 right=338 bottom=494
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Troubleshooting
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect zoom open
  57.   go to stack "Troubleshooting"
  58.   set highlight of background button "Setup" to false
  59.   set highlight of background button "Installation" to false
  60.   set highlight of background button "Using" to false
  61.   set highlight of background button "Troubleshooting" to true
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 20 (button)
  67. -- low flags: 00
  68. -- high flags: A004
  69. -- rect: left=119 top=317 right=338 bottom=222
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Installation
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   visual effect zoom open
  81.   go to stack "Installation"
  82.   set highlight of background button "Setup" to false
  83.   set highlight of background button "Using" to false
  84.   set highlight of background button "Troubleshooting" to false
  85.   set highlight of background button "Installation" to true
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 23 (field)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=0 top=0 right=0 bottom=0
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: 
  102.  
  103.  
  104. -- part 24 (field)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=0 top=0 right=0 bottom=0
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116.  
  117.  
  118. -- part 26 (button)
  119. -- low flags: 00
  120. -- high flags: 0001
  121. -- rect: left=414 top=1 right=40 bottom=455
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 1008 / 1008
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   answer "Print this card?" with "Yes" or "Cancel"
  133.   if it is "Yes" then
  134.     doMenu "Print Card"
  135.   end if
  136.   if it is "Cancel" then
  137.     put "Cancel" into it
  138.   end if
  139. end  mouseUp
  140.  
  141.  
  142.  
  143.  
  144. -- part 27 (button)
  145. -- low flags: 00
  146. -- high flags: 0001
  147. -- rect: left=454 top=1 right=40 bottom=494
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 1004 / 1004
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: 
  156. ----- HyperTalk script -----
  157.  
  158. on mouseUp
  159.   play harpsichord a4
  160.   global search
  161.   answer "Type of Glossary search?" with "Browse" or "Automatic" or "Cancel"
  162.   if it is "Browse" then
  163.     visual wipe up slowly
  164.     go to card "Glossary" of stack "Glossary"
  165.   end if
  166.  
  167.   if it is "Automatic" then
  168.     ask "Search for..."
  169.     put it into search
  170.     if search is empty then
  171.       exit mouseUp
  172.     else
  173.       visual wipe up slowly
  174.       put "find search" into message box
  175.       hide message
  176.       go to card "Glossary" of stack "Glossary"
  177.       find word search in field "Text"
  178.       if the result is "not found" then
  179.         answer "Word not found." with "OK"
  180.         exit  mouseUp
  181.       else
  182.         show card field id 13
  183.         wait 4 seconds
  184.         hide card field id 13
  185.       end if
  186.     end if
  187.   end if
  188. end mouseUp
  189.  
  190.  
  191.  
  192.  
  193.  
  194. -- part 30 (button)
  195. -- low flags: 00
  196. -- high flags: A004
  197. -- rect: left=7 top=317 right=338 bottom=110
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Setup
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   visual effect zoom open
  209.   go to stack "Set-Up"
  210.   set highlight of background button "Installation" to false
  211.   set highlight of background button "Using" to false
  212.   set highlight of background button "Troubleshooting" to false
  213.   set highlight of background button "Setup" to true
  214. end mouseUp
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221. -- part 33 (button)
  222. -- low flags: 00
  223. -- high flags: 0002
  224. -- rect: left=224 top=291 right=309 bottom=258
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 1300 / 1300
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: Start-Up
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   global nav_Path
  236.   ---find out WHERE on the icon you clicked
  237.   put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  238.  
  239.   ---if the click was on the left then
  240.   if E < 0 then
  241.     set icon of me to 1301
  242.     wait 1
  243.     set icon of me to 1300
  244.     push card
  245.     put PathWay() & "SN Feedback" into feedPath
  246.     set cursor to watch
  247.     visual effect dissolve fast
  248.     go stack feedPath
  249.  
  250.     ---if the click was on the right then
  251.   else if E > 0 then
  252.     set icon of me to 1302
  253.     wait 1
  254.     set icon of me to 1300
  255.     visual effect iris close to black
  256.     visual effect iris open
  257.     if nav_Path = empty then put "card Welcome of stack Support Navigator:Support Navigator" into nav_Path
  258.     go nav_Path
  259.   end if
  260. end mouseUp
  261.  
  262. function pathWay
  263. put the long name of stack "Home" into NewName
  264. delete char 1 to 7 of NewName
  265. repeat
  266.   if not(NewName contains ":") then
  267.     exit repeat
  268.   else
  269.     put char 1 to offset(":",NewName) of NewName after NewPath
  270.     delete char 1 to offset(":",NewName) of NewName
  271.   end if
  272. end repeat
  273. return NewPath
  274. end pathWay
  275.  
  276.